`bootstrap` <-
function(data, n)
{
	nr = nrow(data)
	nData = data.frame(data[1,], check.rows = TRUE)
	for(i in 1:n){
		r = as.integer(sample(nr,1))
		nData[i,] = data[r,]
	}
	row.names(nData) = c(1:n)
	return (nData)
}

